VERSION 5.00
Begin VB.Form frmAgregarCondIVA 
   BackColor       =   &H80000013&
   Caption         =   "Agregar Condicion Iva"
   ClientHeight    =   2475
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4500
   Icon            =   "frmAgregarCondIVA.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   2475
   ScaleWidth      =   4500
   Begin VB.TextBox txtabreviatura 
      Height          =   285
      Left            =   1320
      TabIndex        =   1
      Top             =   840
      Width           =   2535
   End
   Begin VB.CommandButton cmdcerrar 
      Caption         =   "&Cerrar"
      Height          =   735
      Left            =   2520
      TabIndex        =   3
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton cmdagregar 
      Caption         =   "&Agregar"
      Height          =   735
      Left            =   1080
      TabIndex        =   2
      Top             =   1440
      Width           =   1215
   End
   Begin VB.TextBox txtnombre 
      Height          =   285
      Left            =   1320
      TabIndex        =   0
      Top             =   360
      Width           =   2535
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H80000013&
      Caption         =   "Abreviatura: (ej. R.I.)"
      Height          =   495
      Left            =   240
      TabIndex        =   5
      Top             =   840
      Width           =   855
   End
   Begin VB.Label lblnombre 
      BackColor       =   &H80000013&
      Caption         =   "Nombre:"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "frmAgregarCondIVA"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub cmdagregar_Click()
    
    ConsultaSql "select * from Condicioniva"
    rs.AddNew
    rs!Denominacion = txtnombre.text
    rs!abreviatura = txtabreviatura.text
    rs.Update
    MsgBox "Condicion Iva Agregada"
    txtnombre.text = ""
    txtabreviatura.text = ""
    
End Sub

Private Sub cmdcerrar_Click()
Unload Me
End Sub

